home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / BUS / N-Z / Time_Stack / TimeStack / TimeStack / card_6418.txt < prev    next >
Encoding:
Text File  |  1988-02-03  |  3.1 KB  |  154 lines
  1. -- card: 6418 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 5216
  5. -- name: Eastern Daylight Time
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11. On idle
  12.   put the short time into background field "EDT"
  13.   put the seconds - 10800 into temp1
  14.   convert temp1 to short time
  15.   put temp1 into background field "PDT"
  16.   put the seconds - 7200 into temp2
  17.   convert temp2 to short time
  18.   put temp2 into background field "MDT"
  19.   put the seconds - 3600 into temp3
  20.   convert temp3 to short time
  21.   put temp3 into background field "CDT"
  22.   put the seconds + 18000 into temp4
  23.   convert temp4 to short time
  24.   put temp4 into background field "UTC"
  25.   put the seconds into temp5
  26.   put card field 2 into temp6
  27.   convert temp6 to seconds
  28.   repeat for 5 times
  29.     if temp5 = temp6 then play "boing"
  30.     if temp5 = temp6 then flash 6
  31.   end repeat
  32.   If temp6 < temp5 then put "Time" into card field 2
  33.   pass idle
  34. end idle
  35.  
  36.  
  37.  
  38.  
  39. -- part 1 (field)
  40. -- low flags: 00
  41. -- high flags: 0002
  42. -- rect: left=170 top=2 right=20 bottom=338
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: Label
  51.  
  52.  
  53. -- part 2 (button)
  54. -- low flags: 00
  55. -- high flags: A003
  56. -- rect: left=366 top=56 right=76 bottom=439
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Set Alarm
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   ask "Set alarm to go off at?"
  68.   put it into card field 2
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 3 (field)
  74. -- low flags: 01
  75. -- high flags: 0002
  76. -- rect: left=382 top=76 right=94 bottom=427
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: 
  85. ----- HyperTalk script -----
  86.  
  87.  
  88.  
  89.  
  90. -- part 4 (button)
  91. -- low flags: 00
  92. -- high flags: 0000
  93. -- rect: left=203 top=314 right=342 bottom=240
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 15420 / 15420
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: Prev
  102. ----- HyperTalk script -----
  103. on mouseUp
  104.   visual effect Scroll Right
  105.   go to previous card
  106. end mouseUp
  107.  
  108.  
  109. -- part 5 (button)
  110. -- low flags: 00
  111. -- high flags: 0000
  112. -- rect: left=240 top=314 right=342 bottom=276
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 16560 / 16560
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: Next
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   visual effect Scroll Left
  124.   go to next card
  125. end mouseUp
  126.  
  127.  
  128. -- part contents for background part 8
  129. ----- text -----
  130. 18:22
  131.  
  132. -- part contents for background part 3
  133. ----- text -----
  134. 15:22
  135.  
  136. -- part contents for background part 6
  137. ----- text -----
  138. 16:22
  139.  
  140. -- part contents for background part 7
  141. ----- text -----
  142. 17:22
  143.  
  144. -- part contents for background part 9
  145. ----- text -----
  146. 23:22
  147.  
  148. -- part contents for card part 1
  149. ----- text -----
  150. Eastern Daylight Time
  151.  
  152. -- part contents for card part 3
  153. ----- text -----
  154. Time